Arquitetura

Row

Total de serviços prestados pelo nucleo de arquitetura

67

Total de serviços feitos pelo nucleo de arquitetura no mês

30

Novas Agências

2

Reformas de agências

1

Metros quadrados

8601.13

Row

Novas Agências - Atividades realizadas

Novas agências

Atividades

Nova agência - 3055 - Barreiras

7

Nova agência - 5004 - Botucatu

2

Reformas de agências - Atividades realizadas

Reformas de agências

Atividades

Reforma agência - 3246 - Jd. América

2

Reformas de fachadas - Atividades realizadas

Reformas de fachadas

Atividades

Reforma fachada - 3299 - Sede

1

Row

Serviços prestados no mês

10 Pontos focais que mais pedem

10 cooperaivas que mais pedem

Row

Atividades realizadas no mês

Os 10 não Pontos-focais que mais pedem

Audiovisual

Row

Total de Vídeos feitos pelo nucleo de audiovisual

134

Total de Vídeos feitos pelo nucleo de audiovisual no mê

26

Total de captações feitas

4

Total de minutos editados no mês

65

Quantidade de alterações feita no mês

5

Row

Serviços prestados

10 Pontos focais que mais pedem

10 cooperaivas que mais pedem

Row

Produção de vídeo no mês

Os 10 não Pontos-focais que mais pedem

Mídias Digitais

Row

Total de serviços prestados no mês

1664

Minutos em Reuniões

1440

Total de Planejamentos execuados no mês

4

Total de impulsionamento

0

Valor do impulsionamento

0

Row

Serviços prestados

10 Pontos focais que mais pedem

10 cooperaivas que mais pedem

Row

Produtividade diária

Os 10 colaboradores que mais pedem

Projetos

Row

Total de serviços executados no ano

41

Tempo gasto em reuniões

670

Projetos feito no mês

7

Total de Análises de patrocínios entregues no mês

0

Entregas de Mídias-off

1

Row

Serviços prestados

10 Pontos focais que mais pedem

10 cooperaivas que mais pedem

Row

Diagrama de Atividades e Projetos

Os 10 não Pontos-focais que mais pedem

Redator

Row

Total de serviços executados no ano

134

Total de serviços prestados no mês

26

Total de captações feitas

4

Total de minutos editados no mês

65

Quantidade de alterações feita no mês

5

Row

---
title: "RESULTADO MENSAL"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    #vertical_layout: fill
    vertical_layout: scroll
    logo: pp.png
    social: [ "twitter", "facebook","google +", "linkedin", "pinterest" ]
    source_code: embed
    #runtime: shiny
---

```{r setup, include=FALSE}
#devtools::install_github("jeromefroe/circlepackeR")
#library(devtools)
library(flexdashboard)
library(readxl)
library(tidyr)
library(plotly)
library(ggmap)
library(RColorBrewer)
library(treemap)
library(hrbrthemes)
library(circlepackeR)
library(data.tree)
library(babynames)
library(viridis)
library(dplyr)
library(lubridate)
library(DT)
#library(d3treeR)
library(chorddiag)
library(circlize)
library(igraph)
library(networkD3)
library(flextable)

#setwd(dirname(rstudioapi::getActiveDocumentContext()$path)) #set no local onde o script está

#função criada para computar quantos dias tem o mês
numberOfDays <- function(date) {
    m <- format(date, format="%m")

    while (format(date, format="%m") == m) {
        date <- date + 1
    }

    return(as.integer(format(date - 1, format="%d")))
}

######## LEITURA DOS BANCOS DE DADOS


arquiteto <- read_excel("C:/Users/pedro.silva/OneDrive - Sicoob/PAUTA_MARKETING/SUPORTE DE QUALIDADE/ARQUITETO/PROJETOS_ARQUITETO.xlsm", sheet=1)
arquiteto$`DATA DE ENTREGA`=as.Date(arquiteto$`DATA DE ENTREGA`, origin = "1899-12-30")

redacao <- read_excel("C:/Users/pedro.silva/OneDrive - Sicoob/PAUTA_MARKETING/SUPORTE DE QUALIDADE/REDAÇÃO/01.REDATOR.xlsm", sheet=1)
redacao$`DATA DE ENTREGA`=as.Date(redacao$`DATA DE ENTREGA`, origin = "1899-12-30")

audiovisual=read_excel("C:/Users/pedro.silva/OneDrive - Sicoob/PAUTA_MARKETING/SUPORTE DE QUALIDADE/SAULO - AUDIO VISUAL/AUDIO_VISUAL.xlsm", sheet = 1)
audiovisual$`DATA DE ENTREGA`=as.Date(audiovisual$`DATA DE ENTREGA`, origin = "1899-12-30")

projetos <- read_excel("C:/Users/pedro.silva/OneDrive - Sicoob/PAUTA_MARKETING/SUPORTE DE QUALIDADE/GABI/GABI_GLPI.xlsm", sheet = 1)
projetos$`DATA DE ENTREGA`=as.Date(projetos$`DATA DE ENTREGA`, origin = "1899-12-30")

digitais <- read_excel("C:/Users/pedro.silva/OneDrive - Sicoob/PAUTA_MARKETING/SUPORTE DE QUALIDADE/MKT  DIGITAL/PROJETOS_MKT_DIGITAL.xlsm", sheet=1)
digitais$`DATA DE ENTREGA`=as.Date(digitais$`DATA DE ENTREGA`, origin = "1899-12-30")

########

maindata=merge(arquiteto, redacao, all=T) %>% merge(audiovisual, all=T) %>% merge(projetos, all=T) %>% merge(digitais, all=T)

maindata=maindata %>% filter(!`DATA DE ENTREGA`% filter(`DATA DE ENTREGA`>=(as.Date(cut(Sys.Date(), "month")) %m-% months(1)) & `DATA DE ENTREGA`<(as.Date(cut(Sys.Date(), "month")) %m-% months(1) + numberOfDays((as.Date(cut(Sys.Date(), "month")) %m-% months(1)))))

arquitetomensal = arquiteto %>% filter(`DATA DE ENTREGA`>=(as.Date(cut(Sys.Date(), "month")) %m-% months(1)) & `DATA DE ENTREGA`<(as.Date(cut(Sys.Date(), "month")) %m-% months(1) + numberOfDays((as.Date(cut(Sys.Date(), "month")) %m-% months(1)))))

audiovisualmensal = audiovisual %>% filter(`DATA DE ENTREGA`>=(as.Date(cut(Sys.Date(), "month")) %m-% months(1)) & `DATA DE ENTREGA`<(as.Date(cut(Sys.Date(), "month")) %m-% months(1) + numberOfDays((as.Date(cut(Sys.Date(), "month")) %m-% months(1)))))

digitaismensal = digitais %>% filter(`DATA DE ENTREGA`>=(as.Date(cut(Sys.Date(), "month")) %m-% months(1)) & `DATA DE ENTREGA`<(as.Date(cut(Sys.Date(), "month")) %m-% months(1) + numberOfDays((as.Date(cut(Sys.Date(), "month")) %m-% months(1)))))

projetosmensal = projetos %>% filter(`DATA DE ENTREGA`>=(as.Date(cut(Sys.Date(), "month")) %m-% months(1)) & `DATA DE ENTREGA`<(as.Date(cut(Sys.Date(), "month")) %m-% months(1) + numberOfDays((as.Date(cut(Sys.Date(), "month")) %m-% months(1)))))

redacao = redacao %>% filter(`DATA DE ENTREGA`>=(as.Date(cut(Sys.Date(), "month")) %m-% months(1)) & `DATA DE ENTREGA`<(as.Date(cut(Sys.Date(), "month")) %m-% months(1) + numberOfDays((as.Date(cut(Sys.Date(), "month")) %m-% months(1)))))

#comando para adicionar o mês anterior 
#(as.Date(cut(Sys.Date(), "month")) %m-% months(1))

#comando + função numberOfDays para identificar o ultimo dia do mês passado
#(as.Date(cut(Sys.Date(), "month")) %m-% months(1) + numberOfDays((as.Date(cut(Sys.Date(), "month")) %m-% months(1))) - 1)

```

Arquitetura
=====================================

Row {data-width=150}
--------------------------------------
### Total de serviços prestados pelo nucleo de arquitetura
```{r, label = "Cabeçalho Arquiteto 1"}
totalservicos=arquiteto %>% filter(STATUS!="NOVO") %>% filter(!CATEGORIA %in% c("Dúvidas/Envio")) %>% nrow()
valueBox(value = totalservicos,icon = "fa-calendar",caption = "Total de atividades realizadas no ano",color = "#7DB61C")
```

### Total de serviços feitos pelo nucleo de arquitetura no mês
```{r, label = "Cabeçalho Arquiteto 2"}
servicosmensal=arquitetomensal %>% filter(STATUS!="NOVO") %>% nrow()
valueBox(value = servicosmensal,icon = "fa-thumbs-up",caption = "Total de atividades realizadas no mês",color = "#00AE9D")
```

### Novas Agências
```{r, label = "Cabeçalho Arquiteto 3"}
novasagencias=arquitetomensal %>% filter(STATUS!="NOVO") %>% filter(CATEGORIA %in% "Nova_agência"); novasagencias = length(levels(factor(novasagencias$MACROPROCESSO)))
valueBox(value = novasagencias,icon = "fa-building",caption = "Novas Agências",color = "#49479D")
```

### Reformas de agências
```{r, label = "Cabeçalho Arquiteto 4"}
reformaagencia=arquitetomensal %>% filter(STATUS!="NOVO") %>% filter(CATEGORIA=="Reforma_Agência"); reformaagencia = length(levels(factor(reformaagencia$MACROPROCESSO)))
valueBox(value = reformaagencia,icon = "fa-pencil",caption = "Reforma de agência",color = "orange")
```

### Metros quadrados
```{r, label = "Cabeçalho Arquiteto 5"}
metrosquadrados=data.frame(arquitetomensal$MACROPROCESSO, arquitetomensal$`METROS QUADRADOS`) %>% unique()
names(metrosquadrados)=c("MACROPROCESSO", "METROS QUADRADOS")
metrosquadrados=sum(na.omit(metrosquadrados$`METROS QUADRADOS`))
valueBox(value = metrosquadrados,icon = "fa-map",caption = "Soma das metragens no mês (m²)",color = "coral")
```

Row
-----------------------

### Novas Agências - Atividades realizadas
```{r}
fonte=arquiteto %>% filter(CATEGORIA=="Nova_agência")
proporcaoprodutos=data.frame(table(fonte$MACROPROCESSO))
names(proporcaoprodutos)=c("Novas agências", "Atividades")

myft <- flextable(
  proporcaoprodutos,
  col_keys = c("Novas agências", "Atividades"))

#myft <- italic(myft, j = 1)
myft <- bg(myft, bg = "#7DB61C", part = "header")
myft <- color(myft, color = "white", part = "header")
myft <- autofit(myft)
myft
```

### Reformas de agências - Atividades realizadas
```{r}
fonte=arquiteto %>% filter(CATEGORIA=="Reforma_Agência")
proporcaoprodutos=data.frame(table(fonte$MACROPROCESSO))
names(proporcaoprodutos)=c("Reformas de agências", "Atividades")

myft <- flextable(
  proporcaoprodutos,
  col_keys = c("Reformas de agências", "Atividades"))

#myft <- italic(myft, j = 1)
myft <- bg(myft, bg = "#7DB61C", part = "header")
myft <- color(myft, color = "white", part = "header")
myft <- autofit(myft)
myft
```

### Reformas de fachadas - Atividades realizadas
```{r}
fonte=arquiteto %>% filter(CATEGORIA=="Reforma_fachada")
proporcaoprodutos=data.frame(table(fonte$MACROPROCESSO))
names(proporcaoprodutos)=c("Reformas de fachadas", "Atividades")

myft <- flextable(
  proporcaoprodutos,
  col_keys = c("Reformas de fachadas", "Atividades"))

#myft <- italic(myft, j = 1)
myft <- bg(myft, bg = "#7DB61C", part = "header")
myft <- color(myft, color = "white", part = "header")
myft <- autofit(myft)
myft
```

Row
---

### Serviços prestados no mês

```{r}
proporcaoprodutos=data.frame(table(arquitetomensal$CATEGORIA))
names(proporcaoprodutos)=c("Funcionário", "Quantidade")
# Create Data
data <- data.frame(
  group=proporcaoprodutos$Funcionário,
  value=proporcaoprodutos$Quantidade
)


plot_ly(data, labels = ~group, values = ~value) %>%
  add_pie(hole = 0.6) %>%
  layout(xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))


```

### 10 Pontos focais que mais pedem
```{r}
pecas_acumuladas=data.frame(table(arquitetomensal$`PONTO FOCAL`))

plot_ly(pecas_acumuladas, x = ~reorder(Var1, -Freq), y = ~Freq, type = 'bar', name = 'SF Zoo') %>%
    layout(barmode = 'group', xaxis = list(title = "Ponto focal"), yaxis = list(title="Quantidade de peças pedidas"))

```

### 10 cooperaivas que mais pedem

```{r}
demandas_cooperativas=data.frame(table(arquitetomensal$`COOPERATIVA SOLICITANTE`))
names(demandas_cooperativas)=c("Cooperativa", "Frequência")
demandas_cooperativas=demandas_cooperativas %>% arrange(Frequência)
n=demandas_cooperativas %>% nrow()
if(n>10){
demandas_cooperativas=demandas_cooperativas %>% slice((n-10):n)
}

p <- plot_ly(demandas_cooperativas, x = ~reorder(Cooperativa, -Frequência), y = ~Frequência, type = 'bar', name = 'SF Zoo') %>%
    layout(barmode = 'group', xaxis = list(title = "Cooperativas"))

p

```

Row
-------------------

### Atividades realizadas no mês

```{r}
demandas_mes=arquitetomensal

teste_pecas=data.frame(table(demandas_mes$`TÉCNICO RESPONSÁVEL`, demandas_mes$`DATA DE ENTREGA`))
names(teste_pecas)=c("Colaborador", "year", "n")
teste_pecas$year=as.Date(teste_pecas$year)

# Plot
p <- teste_pecas %>% 
  ggplot( aes(x=year, y=n, fill=Colaborador, text=n)) +
  geom_area( )+
  scale_fill_viridis(discrete = TRUE)+
  #theme(legend.position="none") +
  theme_ipsum()+
  scale_x_date(date_labels = "%e %B")
  #theme(legend.position="none")

# Turn it interactive
p <- ggplotly(p, tooltip="text") %>% layout(xaxis = list(title="Dia do mês"), yaxis = list(title="Quantidade de peças"))
p
```

### Os 10 não Pontos-focais que mais pedem

```{r}
demandas_cooperativas=data.frame(table(arquitetomensal$`QUEM ABRIU O CHAMADO? (CASO N SEJA O PONTO FOCAL)` ))
names(demandas_cooperativas)=c("Cooperativa", "Frequência")
demandas_cooperativas=demandas_cooperativas %>% arrange(Frequência)
n=demandas_cooperativas %>% nrow()
if(n>10){
demandas_cooperativas=demandas_cooperativas %>% slice((n-10):n)
}

p <- plot_ly(demandas_cooperativas, x = ~reorder(Cooperativa, -Frequência), y = ~Frequência, type = 'bar', name = 'SF Zoo') %>%
    layout(barmode = 'group', xaxis = list(title = "Colaborador"))

p

```



Audiovisual
=====================================

Row {data-width=150}
--------------------------------------
### Total de Vídeos feitos pelo nucleo de audiovisual
```{r}
totalvideos=audiovisual %>% filter(STATUS!="NOVO") %>% filter(!CATEGORIA %in% c("Dúvidas/Envio", "Captação")) %>% nrow()
valueBox(value = totalvideos,icon = "fa-calendar",caption = "Total de vídeos feito no ano",color = "#7DB61C")
```

### Total de Vídeos feitos pelo nucleo de audiovisual no mê
```{r}
videosmensal=audiovisualmensal %>% filter(STATUS!="NOVO") %>% nrow()
valueBox(value = videosmensal,icon = "fa-thumbs-up",caption = "Total de vídeos feito no mês",color = "#00AE9D")
```

### Total de captações feitas
```{r}
captacao=audiovisual %>% filter(STATUS!="NOVO") %>% filter(CATEGORIA %in% "Captação") %>% nrow()
valueBox(value = captacao,icon = "fa-camera",caption = "Total de captação feita no mês",color = "#49479D")
```

### Total de minutos editados no mês
```{r}
minutoseditado=audiovisualmensal %>% filter(STATUS!="NOVO"); minutoseditado=sum(na.omit(minutoseditado$MINUTAGEM))
valueBox(value = minutoseditado,icon = "fa-clock",caption = "Total de minutos editados no mês",color = "orange")
```

### Quantidade de alterações feita no mês
```{r}
alteracoes=audiovisualmensal %>% filter(STATUS!="NOVO"); alteracoes=sum(na.omit(alteracoes$`Nº DE ALTERAÇÕES`))
valueBox(value = alteracoes,icon = "fa-user-plus",caption = "Quantidade de alterações feita no mês",color = "coral")
```

Row
-----------------------

### Serviços prestados

```{r}
proporcaoprodutos=data.frame(table(audiovisualmensal$CATEGORIA))
names(proporcaoprodutos)=c("Funcionário", "Quantidade")
# Create Data
data <- data.frame(
  group=proporcaoprodutos$Funcionário,
  value=proporcaoprodutos$Quantidade
)


plot_ly(data, labels = ~group, values = ~value) %>%
  add_pie(hole = 0.6) %>%
  layout(xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))


```

### 10 Pontos focais que mais pedem
```{r}
pecas_acumuladas=data.frame(table(audiovisualmensal$`PONTO FOCAL`))

plot_ly(pecas_acumuladas, x = ~reorder(Var1, -Freq), y = ~Freq, type = 'bar', name = 'SF Zoo') %>%
    layout(barmode = 'group', xaxis = list(title = "Ponto focal"), yaxis = list(title="Quantidade de peças pedidas"))

```

### 10 cooperaivas que mais pedem

```{r}
demandas_cooperativas=data.frame(table(audiovisualmensal$`COOPERATIVA SOLICITANTE`))
names(demandas_cooperativas)=c("Cooperativa", "Frequência")
demandas_cooperativas=demandas_cooperativas %>% arrange(Frequência)
n=demandas_cooperativas %>% nrow()
if(n>10){
demandas_cooperativas=demandas_cooperativas %>% slice((n-10):n)
}

p <- plot_ly(demandas_cooperativas, x = ~reorder(Cooperativa, -Frequência), y = ~Frequência, type = 'bar', name = 'SF Zoo') %>%
    layout(barmode = 'group', xaxis = list(title = "Cooperativas"))

p

```

Row
-------------------


### Produção de vídeo no mês
```{r}
demandas_mes=audiovisualmensal

teste_pecas=data.frame(table(demandas_mes$`TÉCNICO RESPONSÁVEL`, demandas_mes$`DATA DE ENTREGA`))
names(teste_pecas)=c("Colaborador", "year", "n")
teste_pecas$year=as.Date(teste_pecas$year)

# Plot
p <- teste_pecas %>% 
  ggplot( aes(x=year, y=n, fill=Colaborador, text=n)) +
  geom_area( )+
  scale_fill_viridis(discrete = TRUE)+
  #theme(legend.position="none") +
  theme_ipsum()+
  scale_x_date(date_labels = "%e %B")
  #theme(legend.position="none")

# Turn it interactive
p <- ggplotly(p, tooltip="text") %>% layout(xaxis = list(title="Dia do mês"), yaxis = list(title="Quantidade de peças"))
p
```

### Os 10 não Pontos-focais que mais pedem

```{r}
demandas_cooperativas=data.frame(table(audiovisualmensal$`QUEM ABRIU O CHAMADO? (CASO N SEJA O PONTO FOCAL)` ))
names(demandas_cooperativas)=c("Cooperativa", "Frequência")
demandas_cooperativas=demandas_cooperativas %>% arrange(Frequência)
n=demandas_cooperativas %>% nrow()
if(n>10){
demandas_cooperativas=demandas_cooperativas %>% slice((n-10):n)
}

p <- plot_ly(demandas_cooperativas, x = ~reorder(Cooperativa, -Frequência), y = ~Frequência, type = 'bar', name = 'SF Zoo') %>%
    layout(barmode = 'group', xaxis = list(title = "Colaborador"))

p

```


Mídias Digitais
=====================================

Row {data-width=150}
--------------------------------------

### Total de serviços prestados no mês
```{r}
servicosmensal=digitaismensal %>% filter(STATUS!="NOVO") %>% filter(!CATEGORIA %in% c("Dúvidas/Envio")); servicosmensal=sum(na.omit(servicosmensal$`Nº DE PEÇAS`)) 
valueBox(value = servicosmensal,icon = "fa-thumbs-up",caption = "Total de serviços no mês",color = "#7DB61C")
```

### Minutos em Reuniões
```{r}
reuniao=digitaismensal %>% filter(STATUS!="NOVO") %>% filter(CATEGORIA=="Reunião")
reuniao=sum(na.omit(reuniao$MINUTAGEM))
valueBox(value = reuniao,icon = "fa-clock",caption = "Minutos em reuniões no mês",color = "#00AE9D")
```

### Total de Planejamentos execuados no mês
```{r}
planejamento=digitaismensal %>% filter(STATUS!="NOVO") %>% filter(CATEGORIA %in% "Planejamento") %>% nrow()
valueBox(value = captacao,icon = "fa-list",caption = "Total de planejamtos no mês",color = "#49479D")
```

### Total de impulsionamento
```{r}
impulsionamento=digitaismensal %>% filter(STATUS!="NOVO") %>% filter(SERVIÇO=="Impulsionamento") %>% nrow()
valueBox(value = impulsionamento,icon = "fa-arrow-up",caption = "Total de Impulsionamentos",color = "orange")
```

### Valor do impulsionamento
```{r}
impulsionamento=digitaismensal %>% filter(STATUS!="NOVO") %>% filter(SERVIÇO=="Impulsionamento")
impulsionamento=sum(na.omit(impulsionamento$VALOR))

valueBox(value = impulsionamento,icon = "fa-credit-card",caption = "Valor total de Impulsionamento",color = "coral")
```

Row
-----------------------

### Serviços prestados

```{r}
proporcaoprodutos=data.frame(table(digitaismensal$CATEGORIA))
names(proporcaoprodutos)=c("Funcionário", "Quantidade")
# Create Data
data <- data.frame(
  group=proporcaoprodutos$Funcionário,
  value=proporcaoprodutos$Quantidade
)


plot_ly(data, labels = ~group, values = ~value) %>%
  add_pie(hole = 0.6) %>%
  layout(xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))


```

### 10 Pontos focais que mais pedem
```{r}
pecas_acumuladas=data.frame(table(digitaismensal$`PONTO FOCAL`))

if(nrow(pecas_acumuladas)==0){
  print("Não houve pedidos por Pontos-focais")
}else{

plot_ly(pecas_acumuladas, x = ~reorder(Var1, -Freq), y = ~Freq, type = 'bar', name = 'SF Zoo') %>%
    layout(barmode = 'group', xaxis = list(title = "Ponto focal"), yaxis = list(title="Quantidade de peças pedidas"))
}

```

### 10 cooperaivas que mais pedem

```{r}
demandas_cooperativas=data.frame(table(digitaismensal$`COOPERATIVA SOLICITANTE`))
names(demandas_cooperativas)=c("Cooperativa", "Frequência")
demandas_cooperativas=demandas_cooperativas %>% arrange(Frequência)
n=demandas_cooperativas %>% nrow()
if(n>10){
demandas_cooperativas=demandas_cooperativas %>% slice((n-10):n)
}

p <- plot_ly(demandas_cooperativas, x = ~reorder(Cooperativa, -Frequência), y = ~Frequência, type = 'bar', name = 'SF Zoo') %>%
    layout(barmode = 'group', xaxis = list(title = "Cooperativas"))

p

```

Row
-------------------


### Produtividade diária
```{r}
demandas_mes=digitaismensal

teste_pecas=data.frame(table(demandas_mes$`TÉCNICO RESPONSÁVEL`, demandas_mes$`DATA DE ENTREGA`))
names(teste_pecas)=c("Colaborador", "year", "n")
teste_pecas$year=as.Date(teste_pecas$year)

# Plot
p <- teste_pecas %>% 
  ggplot( aes(x=year, y=n, fill=Colaborador, text=n)) +
  geom_area( )+
  scale_fill_viridis(discrete = TRUE)+
  #theme(legend.position="none") +
  theme_ipsum()+
  scale_x_date(date_labels = "%e %B")
  #theme(legend.position="none")

# Turn it interactive
p <- ggplotly(p, tooltip="text") %>% layout(xaxis = list(title="Dia do mês"), yaxis = list(title="Quantidade de peças"))
p
```

### Os 10 colaboradores que mais pedem

```{r}

demandas_cooperativas=data.frame(table(digitaismensal$`QUEM ABRIU O CHAMADO? (CASO N SEJA O PONTO FOCAL)` ))
if(nrow(demandas_cooperativas)==0){
  print("não houve demandas por não Pontos-Focais")
}else{

names(demandas_cooperativas)=c("Cooperativa", "Frequência")

demandas_cooperativas=demandas_cooperativas %>% arrange(Frequência)
n=demandas_cooperativas %>% nrow()
if(n>10){
demandas_cooperativas=demandas_cooperativas %>% slice((n-10):n)
}

p <- plot_ly(demandas_cooperativas, x = ~reorder(Cooperativa, -Frequência), y = ~Frequência, type = 'bar', name = 'SF Zoo') %>%
    layout(barmode = 'group', xaxis = list(title = "Colaborador"))

p
}

```

Projetos
=====================================

Row {data-width=150}
--------------------------------------
### Total de serviços executados no ano
```{r}
totalservicos=projetosmensal %>% filter(STATUS!="NOVO") %>% nrow()
valueBox(value = totalservicos,icon = "fa-calendar",caption = "Total atividades executadas no mês",color = "#7DB61C")
```

### Tempo gasto em reuniões
```{r}
reuniao=projetosmensal %>% filter(STATUS!="NOVO") %>% filter(CATEGORIA=="Reunião")
reuniao=sum(na.omit(reuniao$MINUTAGEM))
valueBox(value = reuniao,icon = "fa-clock",caption = "Minutos em reuniões no mês",color = "#00AE9D")
```

### Projetos feito no mês
```{r}
nprojetos=projetosmensal %>% filter(STATUS!="NOVO") %>% filter(CATEGORIA %in% "Projeto"); nprojetos=length(levels(factor(nprojetos$MACROPROCESSO)))
valueBox(value = nprojetos,icon = "fa-list",caption = "Total de projetos feito no mês",color = "#49479D")
```

### Total de Análises de patrocínios entregues no mês
```{r}
patrocinio=projetosmensal %>% filter(STATUS!="NOVO") %>% filter(CATEGORIA=="Patrocínio
") %>% nrow()
valueBox(value = patrocinio,icon = "fa-users",caption = "Análise de patrocínio entregue no mês",color = "orange")
```

### Entregas de Mídias-off
```{r}
midiasoff=projetosmensal %>% filter(STATUS!="NOVO") %>% filter(CATEGORIA=="Mídia_off"); midiasoff=length(levels(factor(midiasoff$MACROPROCESSO)))
valueBox(value = midiasoff,icon = "fa-user-plus",caption = "Entregas de Mídias-off no mês",color = "coral")
```

Row
-----------------------
### Serviços prestados

```{r}
proporcaoprodutos=data.frame(table(projetosmensal$CATEGORIA))
names(proporcaoprodutos)=c("Funcionário", "Quantidade")
# Create Data
data <- data.frame(
  group=proporcaoprodutos$Funcionário,
  value=proporcaoprodutos$Quantidade
)


plot_ly(data, labels = ~group, values = ~value) %>%
  add_pie(hole = 0.6) %>%
  layout(xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))


```

### 10 Pontos focais que mais pedem
```{r}
pecas_acumuladas=data.frame(table(projetosmensal$`PONTO FOCAL`))

if(nrow(pecas_acumuladas)==0){
  print("Não houve pedidos de pontos focais")
} else{

plot_ly(pecas_acumuladas, x = ~reorder(Var1, -Freq), y = ~Freq, type = 'bar', name = 'SF Zoo') %>%
    layout(barmode = 'group', xaxis = list(title = "Ponto focal"), yaxis = list(title="Quantidade de peças pedidas"))
}

```

### 10 cooperaivas que mais pedem

```{r}
demandas_cooperativas=data.frame(table(audiovisualmensal$`COOPERATIVA SOLICITANTE`))
names(demandas_cooperativas)=c("Cooperativa", "Frequência")
demandas_cooperativas=demandas_cooperativas %>% arrange(Frequência)
n=demandas_cooperativas %>% nrow()
if(n>10){
demandas_cooperativas=demandas_cooperativas %>% slice((n-10):n)
}

p <- plot_ly(demandas_cooperativas, x = ~reorder(Cooperativa, -Frequência), y = ~Frequência, type = 'bar', name = 'SF Zoo') %>%
    layout(barmode = 'group', xaxis = list(title = "Cooperativas"))

p

```

Row
---------------

### Diagrama de Atividades e Projetos
```{r}
m=data.frame(table(projetosmensal$MACROPROCESSO, projetosmensal$CATEGORIA))
m=m %>% filter(Freq!=0)

# create a dataset:
data <- data.frame(
  from=m$Var1,
  to=m$Var2
)

# Plot
simpleNetwork(data, height="100px", width="100px",        
                   Source = 1,                 # column number of source
                   Target = 2,                 # column number of target
                   linkDistance = 10,          # distance between node. Increase this value to have more space between nodes
                   charge = -900,                # numeric value indicating either the strength of the node repulsion (negative value) or attraction (positive value)
                   fontSize = 14,               # size of the node names
                   fontFamily = "serif",       # font og node names
                   linkColour = "#666",        # colour of edges, MUST be a common colour for the whole graph
                   nodeColour = "#69b3a2",     # colour of nodes, MUST be a common colour for the whole graph
                   opacity = 0.9,              # opacity of nodes. 0=transparent. 1=no transparency
                   zoom = T                    # Can you zoom on the figure?
)
```

### Os 10 não Pontos-focais que mais pedem

```{r}
demandas_cooperativas=data.frame(table(projetosmensal$`QUEM ABRIU O CHAMADO? (CASO N SEJA O PONTO FOCAL)` ))
names(demandas_cooperativas)=c("Cooperativa", "Frequência")
demandas_cooperativas=demandas_cooperativas %>% arrange(Frequência)
n=demandas_cooperativas %>% nrow()
if(n>10){
demandas_cooperativas=demandas_cooperativas %>% slice((n-10):n)
}

p <- plot_ly(demandas_cooperativas, x = ~reorder(Cooperativa, -Frequência), y = ~Frequência, type = 'bar', name = 'SF Zoo') %>%
    layout(barmode = 'group', xaxis = list(title = "Colaborador"))

p

```

Redator
=====================================

Row {data-width=150}
--------------------------------------
### Total de serviços executados no ano
```{r}
totalvideos=audiovisual %>% filter(STATUS!="NOVO") %>% filter(!CATEGORIA %in% c("Dúvidas/Envio", "Captação")) %>% nrow()
valueBox(value = totalvideos,icon = "fa-calendar",caption = "Total de vídeos feito no ano",color = "#7DB61C")
```

### Total de serviços prestados no mês
```{r}
videosmensal=audiovisualmensal %>% filter(STATUS!="NOVO") %>% nrow()
valueBox(value = videosmensal,icon = "fa-thumbs-up",caption = "Total de vídeos feito no mês",color = "#00AE9D")
```

### Total de captações feitas
```{r}
captacao=audiovisual %>% filter(STATUS!="NOVO") %>% filter(CATEGORIA %in% "Captação") %>% nrow()
valueBox(value = captacao,icon = "fa-camera",caption = "Total de captação feita no mês",color = "#49479D")
```

### Total de minutos editados no mês
```{r}
minutoseditado=audiovisualmensal %>% filter(STATUS!="NOVO"); minutoseditado=sum(na.omit(minutoseditado$MINUTAGEM))
valueBox(value = minutoseditado,icon = "fa-clock",caption = "Total de minutos editados",color = "orange")
```

### Quantidade de alterações feita no mês
```{r}
alteracoes=audiovisualmensal %>% filter(STATUS!="NOVO"); alteracoes=sum(na.omit(alteracoes$`Nº DE ALTERAÇÕES`))
valueBox(value = alteracoes,icon = "fa-user-plus",caption = "Quantidade de alterações feita no mês",color = "coral")
```

Row
-----------------------